10 REM ********************************
11 REM *         E  R  R  O  R        *
12 REM ********************************
13 REM * ERGAENZUNG ZU SIMON'S BASIC  *
14 REM * FORMAT: d~OR                *
15 REM * GIBT drSTATUS AUS          *
16 REM * > BEISPIEL: d~OR            *
17 REM *   ERGEBNIS: 00, OK,00,00     *
18 REM ********************************
19 K=0:PRINT" E R R O R [146]  ?CHECKSUM ";
20 FORI=$BFBB TO $BFE2:READ J:POKE I,J:K=K+J:NEXT
21 DATA32,115,,201,176,240,3,76,138,136
22 DATA169,8,133,186,32,180,255,169,111
23 DATA133,185,32,150,255,32,165,255,32
24 DATA210,255,201,13,208,246,32,171
25 DATA255,76,116,145
26 POKE$87BE,186:POKE$87BF,191
27 IFK=5527THENPRINT"OK":dG:PRINT"ERROR"